Imports DAO
Imports DTO
Public Class RangBuocGiaoVienBUS
    Inherits AbstractBUS
    Public Sub Them(ByVal rbgvDTO As RangBuocGiaoVienDTO)
        Dim rbgvDAO As New RangBuocGiaoVienDAO()
        rbgvDAO.Them(rbgvDTO)
    End Sub
    Public Sub XoaTheoMa(ByVal maRangBuocGiaoVien As String)
        Dim rbgvDAO As New RangBuocGiaoVienDAO()
        rbgvDAO.XoaTheoMa(maRangBuocGiaoVien)

    End Sub
    Public Sub Sua(ByVal rbgvDTO As RangBuocGiaoVienDTO)
        Dim rbgvDAO As New RangBuocGiaoVienDAO()
        rbgvDAO.Sua(rbgvDTO)
    End Sub
    Public Function TiemKiemTheoMa(ByVal maRangBuocGiaoVien As String) As RangBuocGiaoVienDTO
        Dim rbgvDTO As RangBuocGiaoVienDTO
        Dim rbgvDAO As New RangBuocGiaoVienDAO()
        rbgvDTO = rbgvDAO.TiemKiemTheoMa(maRangBuocGiaoVien)
        Return rbgvDTO
    End Function
    Public Function LayBang() As DataTable
        Dim dt As DataTable
        Dim rbgvDAO As New RangBuocGiaoVienDAO()
        dt = rbgvDAO.LayBang()
        Return dt
    End Function
    Public Sub CapNhatBang(ByVal dt As DataTable)
        Dim rbgvDAO As New RangBuocGiaoVienDAO()
        rbgvDAO.CapNhatBang(dt)
    End Sub
    Public Function LayDanhSach() As IList
        Dim ds As IList
        Dim rbgvDAO As New RangBuocGiaoVienDAO()
        ds = rbgvDAO.LayDanhSach()
        Return ds
    End Function

End Class
